home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503b.d64 / vorprogramm zs2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  11KB  |  188 lines
  1. 0 REM +++++++++++++++++++++++++++++
  2. 1 REM +++ ZAUBERSCHLOSS 2. TEIL +++
  3. 2 REM +++ (C) 1985 BY           +++
  4. 3 REM +++ JOSEF BUSIN           +++
  5. 4 REM +++ SUDETENSTRASSE 37     +++
  6. 5 REM +++ 7321 ESCHENBACH       +++
  7. 6 REM +++ TEL.: 07161/42817     +++
  8. 7 REM +++                       +++
  9. 8 REM +++ VORPROGRAMM (SPRITES) +++
  10. 9 REM +++++++++++++++++++++++++++++
  11. 10 :
  12. 11 DATA,60,,,126,,,255,,,153,,24,153,,28,255,,30,255,,31,255,128,15,255,192
  13. 20 DATA7,255,224,3,255,240,1,255,248,1,255,120,3,254,48,7,254,,7,254,,7,252,,7
  14. 30 DATA252,,15,248,,31,240,,31,240,
  15. 50 DATA2,64,130,130,65,12,66,34,16,36,34,32,20,66,64,28,68,128,14,104,190,135
  16. 60 DATA56,225,65,159,128,39,222,,24,124,,,56,,,56,,,56,,,112,,,112,,,224,,,224
  17. 70 DATA,1,192,,1,192,,1,192,
  18. 90 DATA,,,,,,,,,,60,,,126,,2,255,64,2,153,64,35,153,196,51,255,204,25,165,152
  19. 100 DATA31,165,248,15,165,240,15,129,240,15,255,240,31,255,248,63,255,252
  20. 110 DATA127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254
  21. 120 DATA127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254
  22. 130 DATA127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254
  23. 140 DATA127,255,254,127,255,254,127,255,254,1,255,128,1,255,128,1,255,128
  24. 150 DATA31,239,248,31,239,248
  25. 180 DATA16,,,16,,,18,,,255,76,64,19,95,64,18,63,128,16,21,,16,31,,16,17,,17,255
  26. 190 DATA192,63,255,254,63,255,254,19,255,254,19,255,246,19,255,246,19,255,246
  27. 200 DATA19,255,246,19,255,240,19,255,240,16,51,,19,243,240
  28. 220 DATA1,252,,3,30,,3,231,,14,123,128,15,249,128,3,96,,,204,,3,158,,3,62,,,110
  29. 230 DATA,,238,,,239,,,239,,,239,,,239,,,31,,,255,,,255,,,56,,3,184,,3,184,,1
  30. 240 DATA255,
  31. 260 DATA1,255,128,1,255,128,1,255,128,1,60,128,1,153,128,1,255,128,1,255,128
  32. 270 DATA12,189,48,6,189,96,2,219,64,2,102,64,3,126,192,1,60,128,1,189,128
  33. 280 DATA1,153,128,3,195,192,3,221,192,3,255,192,3,255,192,3,189,192,7,189,192
  34. 290 DATA7,189,224,7,189,224,7,60,224,7,126,224,7,126,224,7,126,224,4,255,32
  35. 300 DATA15,255,240,15,255,240,15,255,240,15,255,240,15,255,240,15,255,240
  36. 310 DATA31,255,248,31,255,248,31,255,248,31,255,248,62,221,124,48,221,12
  37. 320 DATA119,221,238
  38. 350 DATA,,,,,15,,,15,,66,7,,231,7,4,231,39,2,255,71,3,153,199,3,255,199,1,171
  39. 360 DATA135,,171,7,,213,7,,213,7,,255,119,31,255,255,63,255,255,127,255,255
  40. 370 DATA255,255,255,255,255,255,255,255,252,231,255,248
  41. 390 DATA227,255,192,227,255,192,227,255,192,227,255,192,227,255,192,227,255,192
  42. 400 DATA243,255,192,243,255,192,3,255,192,7,255,224,15,195,240,31,129,248
  43. 410 DATA31,,248,31,,248,31,,248,31,,248,31,,248,31,,248,31,,248,127,,254,255
  44. 420 DATA,255
  45. 440 DATA,24,,,60,,,126,,,255,,1,255,128,3,255,192,7,153,224,15,153,240,255
  46. 450 DATA255,255,255,255,255,255,171,255,207,129,243,199,213,227,195,255,195,193
  47. 460 DATA255,131,192,255,3,224,255,7,225,255,135,227,217,199,3,,192,15,129,240
  48. 480 DATA16,,8,8,,16,60,,60,16,255,8,9,255,144,7,255,224,7,,224,14,255,112
  49. 490 DATA14,195,112,14,189,112,14,165,112,14,189,112,14,195,112,14,255,112
  50. 500 DATA7,,224,3,255,192,1,255,128,1,255,128,10,,80,12,,48,14,,112
  51. 520 DATA,,,,60,,,60,,,60,,,60,,,60,,62,36,124,65,102,130,67,195,194,71,129,226
  52. 530 DATA60,,60,24,,24,50,160,12,50,128,12,50,174,236,50,170,172,49,42,236
  53. 540 DATA48,,12,24,,24,15,255,240,3,255,192
  54. 560 DATA,,,,,,,,,,252,,,120,,,48,,,56,,,126,,,235,128,1,192,192,3,171,224,7,171
  55. 570 DATA240,7,171,248,15,192,248,15,235,124,15,235,124,15,235,124,15,234,248
  56. 580 DATA7,129,240,3,235,224,1,255,192
  57. 600 DATA,60,,,60,,,60,,,60,,,60,,,60,,,60,,,66,,,129,,7,,224,8,24,16,16,36,8
  58. 610 DATA96,66,6,128,165,1,145,24,137,144,165,9,184,90,29,144,36,9,144,24,9
  59. 620 DATA64,,2,63,255,252
  60. 640 DATA,,,,,,,,,,7,240,,15,248,20,31,252,54,63,254,127,127,254,255,255,255
  61. 650 DATA235,255,255,255,255,255,213,255,255,193,255,255,235,255,255,127,255,255
  62. 660 DATA62,127,255,28,127,254,,126,126,,126,126,,126,126,,126,126
  63. 680 DATA15,192,,31,224,28,32,112,62,64,112,107,128,112,127,,112,62,,240,28
  64. 690 DATA56,224,28,124,224,14,213,224,14,254,120,14,124,60,14,56,30,28,56,15,249
  65. 700 DATA56,7,247,28,3,229,28,,9,28,30,3,15,255,255,7,255,254,3,225,252
  66. 720 DATA,3,192,,7,224,,15,240,,31,248,,63,252,,39,254,128,127,254,255,255,254
  67. 730 DATA255,255,254,85,95,254,170,191,254,255,255,254,127,255,252,,63,248,,63
  68. 740 DATA240,,63,240,,63,240,,63,240,,63,240,,63,240,,63,248
  69. 750 DATA,63,248,,63,255,,63,255,,63,255,,63,255,,63,255,,63,255,,63,255,,63
  70. 760 DATA255,,127,255,,127,255,,255,255,1,255,255,31,255,255,63,255,255,63,255
  71. 770 DATA255,127,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  72. 800 DATA,,,,128,192,,193,224,1,231,248,3,17,96,6,23,224,12,17,224,12,8,96
  73. 810 DATA44,9,224,76,4,96,255,255,240,79,255,248,47,255,252,12,15,254,12,31,254
  74. 820 DATA12,31,254,12,23,252,6,19,248,3,35,24,1,163,24,,207,120
  75. 840 DATA3,255,128,15,255,192,31,239,240,127,215,252,127,187,252,127,125,254
  76. 850 DATA254,254,254,253,255,126,251,255,191,247,255,223,239,255,239
  77. 860 DATA247,255,223,251,255,191,125,255,126,126,254,254,63,125,254,63,187
  78. 870 DATA254,63,215,248,31,239,240,7,255,192,3,255,128
  79. 890 DATA240,24,15,244,60,47,244,126,47,246,231,111,247,195,239,243,129,207
  80. 900 DATA251,129,222,249,129,158,125,195,190,127,231,254,63,255,252
  81. 910 DATA31,255,248,15,255,240,15,227,224,15,221,224,15,221,224,15,239,192
  82. 920 DATA31,247,192,31,251,192,63,221,192,63,221,224
  83. 930 DATA127,227,240,127,255,240,127,255,240,63,255,248,31,255,248,15,255
  84. 940 DATA240,15,255,224,15,255,224,7,255,240,7,255,240,15,255,248,15,255
  85. 950 DATA240,31,255,224,63,255,192,63,255,128,127,255,128,127,255,128
  86. 960 DATA127,255,128,255,255,128,255,255,192,255,255,240
  87. 990 DATA,,,,,,,,,,,,,,,,,,,,,,,,255,255,255,255,255,255,219,109,191,255,255
  88. 1000 DATA255,255,255,255,,,,,,,,,,,,,,,,,,,,,,,,
  89. 1020 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,207
  90. 1030 DATA252,251,198,48,51,194,32,19,192,32,3,192,,3,202,,131,202,,3,206
  91. 1040 DATA238,187,202,170,171,202,234,187,192,,11,192,,59,192,,3,192,,3
  92. 1050 DATA255,255,255,255,255,255
  93. 1070 DATA,,,,129,,1,,128,1,,128,,189,,,126,,,126,,,90,,,126,,2,126,64,7,60,224
  94. 1080 DATA7,255,224,3,255,192,1,255,128,7,255,224,31,255,248,63,255,252,63,255
  95. 1090 DATA252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252
  96. 1100 DATA63,255,252,63,255,252,63,255,252,7,255,224,7,255,224,7,255,224,7,255
  97. 1110 DATA224,7,255,224,7,255,224,7,255,224,7,255,224,7,255,224,7,255,224,7,255
  98. 1120 DATA224,7,255,224,7,255,224,7,195,224,63,195,252
  99. 1150 DATA,,,,248,,15,252,,31,6,,48,3,,48,1,128,48,96,192,24,80,96,12,72,96
  100. 1160 DATA6,8,96,3,8,48,1,136,48,3,136,48,7,8,48,15,136,24,31,8,12,62,4,12
  101. 1170 DATA124,2,12,248,1,252,240,,248,224,,
  102. 1190 DATA,113,192,,81,64,,223,96,1,243,240,1,255,240,1,192,112,25,192,115
  103. 1200 DATA28,255,231,30,63,143,31,14,31,31,255,255,31,255,255,31,255,255
  104. 1210 DATA31,255,255,31,255,255,31,255,255,29,255,247,28,255,231,14,255,230
  105. 1220 DATA6,127,204,31,63,159
  106. 1240 DATA,60,,,60,,,60,,,60,,,60,,,60,,,60,,3,255,192,,36,,,36,,,36,,,36,,,36
  107. 1250 DATA,,36,,,36,,,255,,,255,,3,255,192,15,255,240,63,255,252,255,255,255
  108. 1270 DATA,60,,,60,,,60,,,60,,,60,,,126,,,195,,63,129,252,63,,252,48,,12,48,,12
  109. 1280 DATA48,,12,53,25,12,53,33,12,55,33,12,53,33,12,53,25,204,48,,12,48,,12
  110. 1290 DATA63,255,252,63,255,252
  111. 1310 DATA7,255,224,15,255,248,31,255,252,63,24,254,127,24,255,127,24,255
  112. 1320 DATA127,255,254,63,84,254,63,,252,31,,248,15,84,240,15,255,224,7,255,192
  113. 1330 DATA3,255,128,1,255,,,254,,,124,,,120,,,56,,,48,,,16,
  114. 1350 DATA49,130,16,27,6,28,115,135,14,225,195,135,225,193,199,115,131,142
  115. 1360 DATA57,143,28,63,255,252,127,255,254,255,255,255,255,255,255,255,255,255
  116. 1370 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,127,255
  117. 1380 DATA254,63,255,252,31,255,248,15,255,240
  118. 1400 DATA,255,,1,255,128,3,,192,6,18,96,12,36,48,12,73,48,12,146,48,12,36,48
  119. 1410 DATA6,72,96,3,,192,1,129,128,,255,,,126,,,60,,,24,,,24,,,24,,,24,,,24,,
  120. 1420 DATA60,,,60,
  121. 1440 DATA,,248,,,248,,24,248,,24,248,,5,248,,3,128,,71,,,62,128,,60,96,,60,96
  122. 1450 DATA7,252,,7,226,,7,224,,7,224,,7,224,,15,224,,28,,,56,,,240,,,224
  123. 1460 DATA,,224,,
  124. 1480 DATA255,255,,255,255,128,255,255,192,255,255,224,223,255,240,207,255,248
  125. 1490 DATA199,255,252,195,255,254,193,255,255,193,255,255,193,131,3,193,131,3
  126. 1500 DATA193,131,3,193,131,3,193,131,3,193,131,3,1,128,3,1,128,3,1,128,3
  127. 1510 DATA1,128,3,1,128,3
  128. 1530 DATA,126,,,126,,,126,,,126,,,126,,,129,,63,,252,64,56,2,128,124,49
  129. 1540 DATA128,214,121,128,254,141,128,124,141,128,56,77,128,56,13,128,28,13
  130. 1550 DATA128,14,25,128,7,49,128,3,225,128,1,193,128,,1,255,255,255
  131. 1570 DATA,254,,1,255,,3,255,128,3,255,128,1,255,,,254,,,124,,,254,,1,131,,3
  132. 1580 DATA1,128,6,,192,6,,192,6,,192,6,,192,3,1,128,1,131,,,254,,,124,,,,,,,,,,
  133. 1600 DATA,,,,,1,,,3,,,6,,,12,,,28,,,120,,,240,,1,240,,3,224,,7,192,,15,128
  134. 1610 DATA,31,,,62,,,124,,,252,,1,248,,3,240,,7,224,,7,192,,7,128,
  135. 1630 DATA24,,,28,,,14,,,7,,,3,128,,1,192,,,224,,,112,,,56,,,28,,,14,,,7
  136. 1640 DATA,,3,128,,1,192,,,225,,,114,,,60,,,28,,,30,,,39,,,67
  137. 1660 DATA,,,,,,30,,,63,,,97,192,,96,224,,96,48,,192,24,,192,12,2,192,6,7
  138. 1670 DATA192,3,255,192,3,255,192,6,7,192,12,2,96,24,,96,48,,96,224,,63,192
  139. 1680 DATA,31,,,,,,,,
  140. 1700 DATA128,,3,112,,14,94,,114,85,195,210,63,255,252,37,85,84,63,255,252
  141. 1710 DATA21,85,72,31,255,248,21,85,72,31,255,248,21,85,72,31,255,248,21,85,72
  142. 1720 DATA63,255,252,37,85,84,63,255,252,85,195,210,94,,114,112,,14,128,,1
  143. 1740 DATA255,255,255,255,255,255,192,,3,220,133,83,200,80,3,200,32,171,200,4,3
  144. 1750 DATA220,81,19,192,,3,192,,3,192,,3,192,,3,223,18,163,202,64,3,202,5,83
  145. 1760 DATA202,32,3,223,8,163,192,,3,192,,3,255,255,255,255,255,255
  146. 1780 DATA,,,,,,,,,,,,,,,,,,,,,,,128,,,129,255,255,255,64,,255,63,255,255,,,129
  147. 1790 DATA,,128,,,,,,,,,,,,,,,,,,,,,,
  148. 1810 DATA126,,,36,,,36,,,36,,,131,,3,129,192,2,,64,3,,192,3,255,192,3,253,192
  149. 1820 DATA3,127,192,3,239,192,3,255,192,3,251,192,3,255,192,3,223,192,3,255
  150. 1830 DATA192,3,253,192,3,127,192,3,255,192,3,255,192
  151. 1850 DATA,,1,,,3,,,6,,,12,,,24,,,48,,,96,,,192,,1,128,,3,,,6,,,12,,,24,,,48
  152. 1860 DATA,,96,,,192,,17,128,,19,,,22,,,28,,,31,,
  153. 1880 DATA127,255,224,255,255,248,255,255,255,255,255,255,255,255,255,255,255
  154. 1890 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  155. 1900 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  156. 1910 DATA255,255,255,255,255,255,255,255,255,255,255,255
  157. 1920 DATA,,124,,,28,,,124,192,,228,248,1,196,254,1,192,255,128,224,255,192,112
  158. 1930 DATA255,224,56,255,240,28,255,248,28,255,252,28,255,254,28,255,254,56,255
  159. 1940 DATA255,56,255,255,112,255,255,240,255,255,224,255,255,224,255,255,224
  160. 1950 DATA255,255,224
  161. 1980 DATA,14,,,27,,,60,,,126,,,255,,1,255,128,1,153,128,1,153,128,1,255,128
  162. 1990 DATA1,255,128,1,255,128,1,255,128,1,255,128,7,255,224,8,255,16,16,126,8
  163. 2000 DATA18,,72,18,,72,37,,164,37,,164,37,,164
  164. 2020 DATA37,,164,36,129,36,36,129,36,36,255,36,36,255,36,255,255,255,60,255
  165. 2030 DATA61,1,255,129,1,255,131,3,255,195,1,231,198,1,231,131,1,231,128
  166. 2040 DATA3,195,192,3,195,192,3,195,192,7,129,224,7,129,224,7,129,224,15,129
  167. 2050 DATA240,63,129,252
  168. 2070 DATA,,,,,,,,,240,,,144,,,252,,,152,,,152,,,12,,,12,,,6,,,12,,,248
  169. 2080 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,
  170. 2100 :
  171. 3000 PRINT"[147]K[146]ASSETTE ODER D[146]ISKETTE ?"
  172. 3010 GETA$:IFA$=""THEN3010
  173. 3020 IFA$="K"THEN3100
  174. 3030 IFA$="D"THENOPEN1,8,1,"@:ZAUBER-SPRITES 2":GOTO3050
  175. 3040 GOTO3010
  176. 3050 PRINT#1,CHR$(0);CHR$(240);
  177. 3060 FORX=1TO51:FORY=1TO63:READA:B=B+A:PRINT#1,CHR$(A);:NEXT:PRINT#1,CHR$(0);
  178. 3070 NEXT:CLOSE1:IFB<>346712THENPRINT"[147]FEHLER IN DATAS!!!"
  179. 3080 END
  180. 3100 PRINT"[147]"SPC(12)" BITTE WARTEN ! "
  181. 3110 AD=61440:FORX=0TO50:FORY=0TO62:READA:B=B+A
  182. 3120 POKEAD+Y+(X*64),A:NEXT:NEXT:IFB<>346712THENPRINT"[147]FEHLER IN DATAS!!!":END
  183. 3130 PRINT"[147]LOAD"+CHR$(34)+"ZAUBERSCHLOSS 2"+CHR$(34)+""
  184. 3140 :
  185. 3150 REM BEI VERWENDUNG VON TURBO TAPE
  186. 3160 REM MUSS IN ZEILE 3130 STATT
  187. 3170 REM 'LOAD' '_L' STEHEN
  188.